1 REM *** TYPING TUTOR
2 REM *** BY EUGENE D. KELLY, JR.
3 REM *** TRANSLATED FOR THE 64 BY
4 REM *** DONNA K. WOODY
5 POKE53281,15:POKE53280,11:PRINTCHR$(144):POKE783,PEEK(783)AND254
6 PRINTCHR$(147):PRINT:PRINTTAB(14)"************":PRINTTAB(14)"TYPING TUTOR"
7 PRINTTAB(14)"************":PRINTTAB(19)"BY"
8 PRINTTAB(10)"EUGENE D. KELLY JR."
9 PRINTTAB(5)"TRANSLATED FOR THE COMMODORE BY"
10 PRINTTAB(14)"DONNA K. WOODY[144]"
11 POKE781,22:POKE782,7:SYS65520:PRINT"PRESS [129]SPACE BAR[144] TO CONTINUE."
12 POKE198,0:WAIT198,1:GETA$
20 PRINTCHR$(147):PRINTTAB(14)"TYPING TUTOR"
30 PRINT:PRINT
50 A$="FJDKSLA:  FRTGBVJUYHNMECI,WXO.QZP/1029384756"
60 POKE781,3:POKE782,18:SYS65520:PRINT"MENU"
70 PRINT"1. HOME KEYS LESSON"
72 PRINT:PRINT"2. FIRST FINGER LESSON"
74 PRINT:PRINT"3. SECOND FINGER LESSON"
76 PRINT:PRINT"4. THIRD FINGER LESSON"
78 PRINT:PRINT"5. FOURTH FINGER LESSON"
82 PRINT:PRINT"6. NUMBER LESSON"
84 PRINT:PRINT"7. QUIT"
90 POKE781,21:POKE782,0:SYS65520:PRINT"WHAT IS YOUR CHOICE 1-7? ";
91 POKE198,0:WAIT198,1:GETCH$
92 CH=VAL(CH$)
93 IFCH<1ORCH>7THENPRINT"PLEASE ENTER A NUMBER BETWEEN 1 AND 7.":GOTO90
94 PRINTCHR$(147)
95 ONCHGOSUB100,200,300,400,500,600,97
96 GOTO20
97 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
98 POKE631,13:POKE632,13:POKE198,2:END
100 REM HOME KEYS GOSUBS
110 GOSUB2000
120 GOSUB3000
130 NC=10:GOSUB1000
190 RETURN
199 :
200 REM FIRST FINGER GOSUBS
210 GOSUB3000:GOSUB6000:REM REVIEWS
220 GOSUB4000:REM FIRST FINGER EXERCISES
230 NC=22:GOSUB1000:REM RANDOM LETTERS
240 GOSUB5000:REM WORD PRACTICE
290 RETURN
299 :
300 REM SECOND FINGER GOSUBS
310 GOSUB6100:GOSUB6120:REM REVIEWS
320 GOSUB7000:REM SECOND FINGER EXERCISES
330 GOSUB5200:REM REVIEW WORDS
340 GOSUB5600:REM SECOND FINGER WORDS
350 NC=26:GOSUB1000:REM RANDOM LETTERS
390 RETURN
399 :
400 REM THIRD FINGER GOSUBS
410 GOSUB6100:GOSUB6140:REM REVIEWS
420 GOSUB7040:REM MORE REVIEWS
430 GOSUB8000:REM THIRD FINGER EXERCISES
440 GOSUB5200:GOSUB5600:REM WORD REVIEWS
450 GOSUB5700:REM THIRD FINGER WORDS
460 NC=30:GOSUB1000:REM RANDOM LETTERS
490 RETURN
499 :
500 REM FIFTH FINGER GOSUBS
510 GOSUB6100:GOSUB6140:REM REVIEWS
520 GOSUB7040:GOSUB8040:REM MORE REVIEWS
530 GOSUB9000:REM FOURTH FINGER EXERCISES
540 GOSUB5200:GOSUB5600:GOSUB5700:REM WORD REVIEWS
550 GOSUB5800:REM FOURTH FINGER WORDS
560 NC=34:GOSUB1000:REM RANDOM LETTERS
590 RETURN
599 :
600 PRINTCHR$(147):POKE781,2:POKE782,12:SYS65520:PRINT"NUMBER LESSON"
610 GOSUB6100:GOSUB6140:REM REVIEWS
620 GOSUB7040:GOSUB8040:GOSUB9040:REM MORE REVIEWS
630 GOSUB9500:REM NUMBER EXERCISES
650 GOSUB5800:REM FOURTH FINGER WORDS
660 GOSUB5900:REM NUMBER WORD
670 NC=44:GOSUB1000:REM RANDOM LETTERS AND NUMBERS
690 RETURN
699 :
1000 PRINTCHR$(147)
1010 PRINT"ONE MOMENT, PLEASE..."
1015 T$="":FLAG=2
1020 FORI=1TO39
1030 N1=N
1040 N=INT(NC*RND(1))+1
1045 IFN1=0THEN1060
1050 IFMID$(A$,N,1)=MID$(A$,N1,1)THEN1040
1060 T$=T$+MID$(A$,N,1)
1070 NEXT
1080 POKE781,6:POKE782,0:SYS65520:PRINTT$
1082 TI$="000000"
1083 M=0:C$=""
1088 POKE781,9:POKE782,0:SYS65520:PRINT"COPY THE ABOVE LINE."
1090 PRINT:PRINT:PRINT
1092 POKE204,0:POKE207,0:POKE198,0:WAIT198,1:GETZ$:POKE204,1
1093 IFZ$=CHR$(20)THENPRINTZ$;:C$=LEFT$(C$,LEN(C$)-1):GOTO1092
1095 IFZ$=CHR$(13)THENGOTO1100
1096 PRINTZ$;
1097 C$=C$+Z$
1098 GOTO1092
1100 FORX=1TOLEN(T$)-1
1110 IFMID$(C$,X,1)=MID$(T$,X,1)THENM=M+1
1120 NEXT
1230 PRINT:PRINT:PRINT:PRINT" YOU DID "M" LETTERS CORRECT OUT OF"
1240 PRINTLEN(T$)-1" IN "MID$(TI$,3,2)":"RIGHT$(TI$,2)" SECONDS"
1250 POKE781,23:POKE782,8:SYS65520:PRINT"TO CONTINUE PRESS <RETURN> ";
1260 POKE198,0:WAIT198,1:GETZ$
1265 IFFLAG=2AND(LEN(T$)-1-M)>3THENGOTO1000
1270 FLAG=0:RETURN
1999 :
2000 PRINT:FORK=1TO7STEP2
2010 LA$=MID$(A$,K,1):L1$=LA$+LA$+" "
2020 LB$=MID$(A$,K+1,1):L2$=LB$+LB$+" "
2030 T$=""
2040 FORJ=1TO6
2050 T$=T$+L1$+L2$
2060 NEXT
2070 GOSUB10000:PRINTCHR$(147)
2080 NEXT
2090 RETURN
2999 :
3000 T$=""
3010 FORI=1TO8
3020 FORK=1TO2
3030 T$=T$+MID$(A$,I,1)
3040 NEXTK
3050 T$=T$+" "
3060 NEXTI
3070 FORI=1TO8
3080 T$=T$+MID$(A$,I,1)+" "
3090 NEXT
3100 GOSUB10000
3110 RETURN
3999 :
4000 T$=""
4020 FORJ=12TO16
4030 T1$=T1$+"F"+MID$(A$,J,1)
4035 NEXTJ:T1$=T1$+" "
4040 T$=T1$+T1$+T1$
4050 GOSUB10000
4100 T$=""
4120 FORJ=18TO22
4130 T2$=T2$+"J"+MID$(A$,J,1)
4135 NEXTJ:T2$=T2$+" "
4140 T$=T2$+T2$+T2$
4150 GOSUB10000
4200 T$=T1$+T2$+T1$
4210 GOSUB10000
4300 T$=T2$+T1$+T2$
4310 GOSUB10000
4400 NC=22
4900 RETURN
4999 :
5000 T$="A FAD: AS A LAD: ALL ADS: FALL "
5010 GOSUB10000
5200 T$="FUR FUR FUN FUN FAR FAR FAN FAN FAB FAB "
5210 GOSUB10000
5300 T$="GUN GUN GUM GUM GUY GUY GAL GAL GUS GUS "
5310 GOSUB10000
5400 T$="BUY BUY BUT BUT BAT BAT BAG BAG BUN BUN "
5410 GOSUB10000
5500 T$="HUT HUT JUT JUT VAN VAN HAD HAD HAS HAS "
5510 GOSUB10000
5520 RETURN
5600 T$="JIM JIM DIM DIM KID KID RED RED CUE CUE "
5610 GOSUB10000
5620 T$="MY: MY: FED FED LID LID CUT CUT AID AID "
5630 GOSUB10000
5690 RETURN
5700 T$="LOT LOT SIT SIT WET WET TEX TEX CO. CO. "
5710 GOSUB10000
5720 T$="SAT SAT SOD SOD LAW LAW SAX SAX WAX WAX "
5730 GOSUB10000
5790 RETURN
5800 T$="FAT FAT PAT PAT ZIP ZIP QT. QT. ZAP ZAP "
5810 GOSUB10000
5820 T$="QUE QUE PAL PAL BOP BOP Y/N Y/N HAS HAS "
5830 GOSUB10000
5890 RETURN
5900 T$="LIST 5679 RUN 2841 9045 S. 8 TH STREET "
5910 GOSUB10000
5920 T$="TRY 1084 TIMES 35876 WEST 165 TH BLVD. "
5930 GOSUB10000
5999 RETURN
6000 T$="FD FS FA JK JL J: FD JK FS JL FA J: "
6010 GOSUB10000
6100 T$="FJDKSLA: :ALSKDJF JFKDLS:A A:SLDKFJ "
6110 GOSUB10000
6111 RETURN
6120 T$="FRF FTF FGF FBF FVF JUJ JYJ JHJ JNJ JMJ "
6130 GOSUB10000
6140 T$="FRF JUJ FTF JYJ FGF JHJ FBF JNJ FVF JMJ "
6150 GOSUB10000
6900 RETURN
6990 RETURN
7000 T$="DED DED DCD DCD KIK KIK K,K K,K "
7010 GOSUB10000
7020 T$="DED KIK DCD K,K DED KIK DCD K,K "
7030 GOSUB10000
7040 T$="DEDCD KIK,K DEDCD KIK,K DEDCD KIK,K "
7050 GOSUB10000
7100 RETURN
8000 T$="SWS SWS SXS SXS LOL LOL L.L L.L "
8010 GOSUB10000
8020 T$="SWS LOL SXS L.L SWS LOL SXS L.L "
8030 GOSUB10000
8040 T$="SWSXS LOL.L SWSXS LOL.L SWSXS LOL.L "
8050 GOSUB10000
8100 RETURN
9000 T$="AQA AQA AZA AZA :P: :P: :/: :/: "
9010 GOSUB10000
9020 T$="AQA :P: AZA :/: AQA :P: AZA :/: "
9030 GOSUB10000
9040 T$="AQAZA :P:/: AQAZA :P:/: AQAZA :P:/: "
9050 GOSUB10000
9100 RETURN
9500 T$="F4F F5F J7J J6J F4F F5F J6J "
9510 GOSUB10000
9520 T$="F4F5F J7J6J F4F5F J7J6J F4F5F J6J7J "
9525 GOSUB10000
9530 T$="F4F J7J F5F J6J F4F J7J F5F J7J "
9535 GOSUB10000
9540 T$="D3D K8K D3D K8K D3D K8K D3D K8K "
9545 GOSUB10000
9550 T$="S2S L9L S2S L9L S2S L9L S2S L9L "
9555 GOSUB10000
9560 T$="A1A :0: A1A :0: A1A :0: A1A :0: "
9565 GOSUB10000
9599 RETURN
10000 PRINTCHR$(147):POKE781,6:POKE782,0:SYS65520:PRINTT$
10002 GOSUB1082
10004 IF(LEN(T$)-1-M)<3THEN10160
10010 PRINTCHR$(147):PRINT"YOU MISSED "LEN(T$)-M-1" LETTERS IN THAT"
10020 PRINT"LESSON.  YOU'D BETTER TRY IT AGAIN."
10030 POKE781,22:POKE782,8:SYS65520:PRINT"PRESS <RETURN> TO CONTINUE.";
10040 POKE198,0:WAIT198,1:GETZ$:PRINTCHR$(147):GOTO10000
10160 RETURN
63000 REM     LINK BACK
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END